home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Sample / UnitFormEntityBase.dfm < prev    next >
Encoding:
Text File  |  2000-05-29  |  1.5 KB  |  72 lines

  1. inherited FormEntityBase: TFormEntityBase
  2.   Left = 283
  3.   Top = 152
  4.   Caption = 'FormEntityBase'
  5.   OldCreateOrder = True
  6.   PopupMenu = PopupMenuEntity
  7.   PixelsPerInch = 96
  8.   TextHeight = 13
  9.   object StatusBarEntity: TStatusBar [0]
  10.     Left = 0
  11.     Top = 434
  12.     Width = 632
  13.     Height = 19
  14.     AutoHint = True
  15.     Panels = <
  16.       item
  17.         Width = 50
  18.       end>
  19.     SimplePanel = False
  20.   end
  21.   object ToolBarEntityAbstract: TToolBar [1]
  22.     Left = 0
  23.     Top = 0
  24.     Width = 632
  25.     Height = 29
  26.     Caption = 'ToolBarAbstract'
  27.     EdgeBorders = [ebBottom]
  28.     Images = ImageListBase
  29.     ParentShowHint = False
  30.     ShowHint = True
  31.     TabOrder = 1
  32.     object ToolButtonEntityAbstractSeparator: TToolButton
  33.       Left = 0
  34.       Top = 2
  35.       Width = 8
  36.       Caption = 'ToolButtonEntityAbstractSeparator'
  37.       ImageIndex = 0
  38.       Style = tbsSeparator
  39.     end
  40.     object ToolButtonSaveAbstract: TToolButton
  41.       Left = 8
  42.       Top = 2
  43.       Action = ActionSave
  44.     end
  45.   end
  46.   inherited ImageListBase: TImageList
  47.     Left = 76
  48.     Top = 20
  49.   end
  50.   object ActionListEntity: TActionList
  51.     Images = ImageListBase
  52.     Left = 108
  53.     Top = 72
  54.     object ActionSave: TAction
  55.       Caption = 'Save'
  56.       Hint = 'Save'
  57.       ImageIndex = 4
  58.       ShortCut = 16467
  59.       OnExecute = ActionSaveExecute
  60.       OnUpdate = ActionSaveUpdate
  61.     end
  62.   end
  63.   object PopupMenuEntity: TPopupMenu
  64.     Images = ImageListBase
  65.     Left = 68
  66.     Top = 108
  67.     object Save1: TMenuItem
  68.       Action = ActionSave
  69.     end
  70.   end
  71. end
  72.